home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v8n05.arc / BINARY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-15  |  827 b   |  32 lines
  1. PROGRAM Binary;
  2. USES Crt; {<== Comment out this line for TP3}
  3. { This program displays a binary number from 0 to 7
  4.   using the Caps/Num/Scroll Lock LED indicators. }
  5.  
  6. TYPE  LEDnum = 0..7;
  7. VAR   B : Byte;
  8.       dummy : char;
  9.  
  10.   PROCEDURE BinLed(L : LEDnum);
  11.   VAR ShiftByte : byte absolute $0000:$0417;
  12.      { shift status byte }
  13.   BEGIN
  14.     ShiftByte := L SHL 4;
  15.   END;
  16.  
  17. BEGIN
  18.   WriteLn('Press a key to display binary numbers on the LEDs.');
  19.   WriteLn('Press another key to stop the display.');
  20.   dummy := ReadKey;  {<== comment out this line for TP3}
  21.   {Read(Kbd,dummy);} {<== UN-comment this line for TP3}
  22.   B := 0;
  23.   REPEAT
  24.     WriteLn('Displaying ',B);
  25.     BinLed(B);
  26.     Delay(1000);
  27.     B := Succ(B) MOD 8;
  28.   UNTIL KeyPressed;
  29.   BinLed(0); {Turn off shift states!}
  30. END. { PROGRAM Binary }
  31.  
  32.